/* Planet Buster */
/* Made by Dell Bond */
/* Version 1.0 */

call zocsend "ps"
result=ZocWaitMux("tarDock> Wher", "[Pause]")
select
	when result=0 then t=1
	when result=1 then t=2
end

if t=1 then
call zocsend "ha"
call zocwait " want (Max "
stuff=Getstuff(0,0)
call zocsend stuff
call zocsend "^m"
call zocsend "t"
call zocsend stuff
call zocsend "^mqq"
do stuff
call zocsend "uy"
call zocsend "Http://zocscripts.bbsnet.ca"
call zocsend "^m"
result=ZocWaitMux("Command", "ould this be")
select
	when result=0 then a=1
	when result=1 then a=2
end

if a=1 then
call zocsend "lzdy"

if a=2 then
call zoc send "plzdy"
end
exit

if t=2 then
call zocsend "^mha"
call zocwait " want (Max "
stuff=Getstuff(0,0)
call zocsend stuff
call zocsend "^m"
call zocsend "t"
call zocsend stuff
call zocsend "^mqq"
do stuff
call zocsend "uy"
call zocsend "Http://zocscripts.bbsnet.ca"
call zocsend "^m"
result=ZocWaitMux("Command", "ould this be")
select
	when result=0 then z=1
	when result=1 then z=2
end

if z=1 then
call zocsend "lzdy"

if z=2 then
call zoc send "plzdy"
end
exit

Getstuff:
holdfinal=""
call zocwait " "
holds=zoclastline()
DO addchar=1 to length(holds)
        holdsit=substr(holds,addchar,1)
        if holdsit<>"]" then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
RETURN holdfinal